home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8608a.d64 / listing 1.(1520) (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  301b  |  13 lines
  1. 5 REM -------- TRANS 0 (1520-PLOTTER) -
  2. 10 DATA 0,0,15,0,15,9,7,5,13,0,9
  3. 20 DIM X(6),Y(6)
  4. 30 FOR I=1 TO 5 : READ X(I),Y(I) : NEXT
  5. 40 X(6)=X(1) : Y(6)=Y(1)
  6. 50 OPEN 1,6,1 : OPEN 2,6,2 : PRINT#2,0 : CLOSE 2
  7. 60 PRINT#1,"M",0,-200 : PRINT#1,"I"
  8. 70 FOR I=1 TO 5
  9. 80 PRINT#1,"R",X(I),Y(I) : PRINT#1,"J",X(I+1),Y(I+1)
  10. 90 NEXT
  11. 100 PRINT#1,"R",0,-200
  12. 110 CLOSE 1
  13.